﻿Public Class ClsIndustryAccountType
    'sys.mdb数据库，表名：S_IndustryAccountType
    ',
    Private mIndustryId As Integer
    Private mIndustry As String
    Private mNewAcctLength As Int16
    Private mOneLevelAcctLength As Int16
    Private mCashCode As String
    Private mBankCode As String
    Private mAssetsCode As String
    Private mDepCode As String
    Private mRecieveCode As String
    Private mPayCode As String
    Private mGainCode As String
    Private mIncAndDecCode As String
    Private mStockCode As String
    Private mDevCode As String

    Public Property IndustryId As Integer
        Get
            Return mIndustryId
        End Get
        Set(value As Integer)
            mIndustryId = value
        End Set
    End Property

    Public Property Industry As String
        Get
            Return mIndustry
        End Get
        Set(value As String)
            mIndustry = value
        End Set
    End Property

    Public Property NewAcctLength As Short
        Get
            Return mNewAcctLength
        End Get
        Set(value As Short)
            mNewAcctLength = value
        End Set
    End Property

    Public Property OneLevelAcctLength As Short
        Get
            Return mOneLevelAcctLength
        End Get
        Set(value As Short)
            mOneLevelAcctLength = value
        End Set
    End Property

    Public Property CashCode As String
        Get
            Return mCashCode
        End Get
        Set(value As String)
            mCashCode = value
        End Set
    End Property

    Public Property BankCode As String
        Get
            Return mBankCode
        End Get
        Set(value As String)
            mBankCode = value
        End Set
    End Property

    Public Property AssetsCode As String
        Get
            Return mAssetsCode
        End Get
        Set(value As String)
            mAssetsCode = value
        End Set
    End Property

    Public Property DepCode As String
        Get
            Return mDepCode
        End Get
        Set(value As String)
            mDepCode = value
        End Set
    End Property

    Public Property RecieveCode As String
        Get
            Return mRecieveCode
        End Get
        Set(value As String)
            mRecieveCode = value
        End Set
    End Property

    Public Property PayCode As String
        Get
            Return mPayCode
        End Get
        Set(value As String)
            mPayCode = value
        End Set
    End Property

    Public Property GainCode As String
        Get
            Return mGainCode
        End Get
        Set(value As String)
            mGainCode = value
        End Set
    End Property

    Public Property IncAndDecCode As String
        Get
            Return mIncAndDecCode
        End Get
        Set(value As String)
            mIncAndDecCode = value
        End Set
    End Property

    Public Property StockCode As String
        Get
            Return mStockCode
        End Get
        Set(value As String)
            mStockCode = value
        End Set
    End Property

    Public Property DevCode As String
        Get
            Return mDevCode
        End Get
        Set(value As String)
            mDevCode = value
        End Set
    End Property
End Class
